function ret = test_chi_cuadrado2( seq, E )
	#gradLib secciones.
	#Test chi cuadrado al 5% de significacion, con 9 grados de libertad. Valor de tablas:
	chi_9_005 = 16.92;
	gradLib = 7;

	#O = 0;
	#O(gradLib) = 0;
	#O = [0];

#	E = length(seq)/gradLib;

	chi_0 = 0;
	O = seq;

	for i = 1:gradLib
		chi_0 = chi_0 + power(O(i) - E(i),2)/E(i);
		printf("%g %g %g %g %g %g\n", i, O(i), E(i), O(i)-E(i), power(O(i)-E(i), 2), power(O(i)-E(i), 2)/E(i));
	endfor

	if chi_0 >= chi_9_005
		ret = 0;
	else
		ret = 1;
	endif
endfunction
